home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0033_Cpu & Speed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  2.1 KB  |  71 lines
  1. {
  2.  SM> Does anyone have any code to tell me WHAT KIND of CPU is
  3.  SM> installed on a computer, and how fast the CPU is??  I'm using TP 6.0.
  4.  SM> Thanks! Also, while I'm at it, how about some code to detect if a
  5.  SM> co-processor is installed (Optional) Thanks!
  6.  SM> -!-
  7.  
  8.  well here is somthing i used to get a scale for the Delay command i have
  9.  in my drop in replacement CRT Unit, this will get a scale of the machine
  10.  runing so that if the program gets run on different speed machines the
  11.  code will analize it to produce the scale so DELAY will properly work on
  12.  different machines.
  13.  
  14.  the speed is a Word Variable i use in the normal area of pascal
  15.  
  16.  my 486 sx priduces aprox 39,450 at 33Mhz, when 8 mhz is runing it will
  17.  produce aprox 10,500..
  18.   So with that i think you can figure out somthing..
  19. }
  20.  
  21. VAR
  22.     Speed : WORD;
  23.  
  24. BEGIN
  25.  
  26. Asm
  27.  STI
  28.  Mov AX, $0040;
  29.  Mov ES, AX;
  30.  Mov Bl, [ES:$006c]; { Get jiffy clock current value }
  31.  And BL, $01;        { monitor bit 0 only }
  32.  Xor AX, AX;         { with need a 48 bit reference for fast machines }
  33.  Xor DX, DX;         { clear AX, DX, SI }
  34.  Xor SI, SI;
  35.         { the following is to syncronize the clock to insure that we are at
  36.        starting of a new clock count }
  37. @lp:
  38.  Mov BH, [ES:$006c]; { Now get the jiffy again }
  39.  and BH, $01;        { only need to check bit }
  40.  cmp BL,BH;          { if clock is still the same then it has incremented }
  41.  Je @lp;
  42.         { Now we know the clock at the start of a new timing cycle }
  43. @Lp1:
  44.  Inc  AX;   { Increment 48 bit counters now }
  45.  Jnz @lp2;
  46.  Inc DX;
  47.  Jz @lp2;
  48.  Inc SI;
  49. @Lp2:
  50.  Mov BH, [ES:$006c];
  51.  And BH, $01;
  52.  Cmp BL, BH;
  53.  Jne @Lp1;    { Loop back increment counters until jiffy bit 0 changes }
  54.  SHR SI,1;    { now we scale down the 48 bits into a 16 bit reference }
  55.  RCR DX,1;
  56.  RCR AX,1;
  57.  SHR DX,1;
  58.  
  59.  RCR AX,1;   { if you need more resolution then exclude one of then RCR,SHR}
  60.  SHR DX,1;   { you would also need to use DX reg of you do as the 32 bit }
  61.  
  62.  RCR AX,1;
  63.  SHR AX,1;
  64.  
  65.  Mov Speed,AX;  { Set Scale Factor }
  66. End;
  67.  
  68. WriteLn(Speed);
  69.  
  70. END.
  71.